

;     ROBOT  'MOVER'


; INITIALIZE RANDOM NUMBER

   250 TO RANDOM


; SAVE CURRENT DAMAGE

START
 DAMAGE TO D  


; CHECK DAMAGE - GO MOVE IF DAMAGED
; IF NOT, INCREMENT AIM

SCAN
   IF DAMAGE # D GOTO MOVE
   AIM + 13 TO AIM 


; SEND RADAR IN DIRECTION OF AIM
; EXIT TO SCAN IF NO ENEMY FOUND
; OR SHOOT AT ENEMY JUST SPOTTED
; THEN GO SEE IF ENEMY IS STILL THERE

SPOT
   AIM TO RADAR
   IF RADAR > 0 GOTO SCAN
   0 - RADAR TO SHOT
   GOTO SPOT


; PICK A RANDOM PLACE TO GO

MOVE
   RANDOM TO H
   RANDOM TO V


; TRAVEL TO NEW X LOCATION

MOVEX
   H - X * 100 TO SPEEDX
   IF H - X > 20 GOTO MOVEX
   IF H - X < -20 GOTO MOVEX
   0 TO SPEEDX


; TRAVEL TO NEW Y LOCATION
; THEN GO START SCANNING AGAIN

MOVEY
   V - Y * 100 TO SPEEDY
   IF V - Y > 20 GOTO MOVEY
   IF V - Y < -20 GOTO MOVEY
   0 TO SPEEDY
   GOTO START
